home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr18
/
bgft302b.zip
/
BGFT300B.EXE
/
BGFTUITL.SLT
< prev
next >
Wrap
Text File
|
1993-03-03
|
2KB
|
38 lines
// Version 3.02 BackGround File Transfer
// BGFTUITL.SLT: Telix script for BGFT Xmodem-1K upload.
// Copyright (c) 1990-1993 Dirac Systems
// Telix is a trademark of Exis Inc.
str command[80]; // Command string for BGFTOPT.
str temp[80]; // Temporary concatenation string.
int updirlen; // Telix upload drive:directory str length.
int extfilelen; // Telix external file maximum str length.
main()
{
command = "/q"; // Start command line.
strcat(command," /a"); // Acknowledge any error.
strcat(command," /r");
itos(get_port(),temp); // Find out where we are connected.
strcat(command,temp); // Reconnect existing comm port.
strcat(command," /b");
itos(get_baud(),temp); // Find out what is the baud rate.
strcat(command,temp); // Set baud rate for resident.
//
// BGFT requires a filename from Telix.
//
strcat(command," /u"); // Set up upload.
updirlen = strlen(_up_dir); // Get unwanted Telix upld directory.
extfilelen = strmaxlen(_ext_filespec); // Get maximum length of Telix file.
substr(_ext_filespec,updirlen,extfilelen,temp); // Shave off upld dir.
strcat(command,temp); // Put BGFT filename in '/u' command.
//
// Xmodem-1K Upload
//
strcat(command," /~4"); // This protocol is Xmodem-1K upload.
strcat(command," /s"); // Start to send file.
prints(command); // Tell user the command string.
run("bgftopt.exe",command,2);
exittelix(0,0); // Leave Telix; don't hangup line.
} // Now enjoy background Xmodem-1K upld.